10 POKE53280,0:POKE53281,0:PRINT"[147]":IFA=0THENA=1:LOAD"DIGIPLAYER.MOD",8,1
12 POKE56,14:CLR:SP=10:POKE808,239:RW$=".RAW":PL$=" [208]LAY VIDEO "
20 PRINTCHR$(14)CHR$(8)"[147]"SPC(7)"[196]IGI-[208]LAYER  [214]ERSION 2.0"
26 PRINT"   [195]OPYRIGHT 1989 [205]ARK [193]. [196]ICKENSON"
27 PRINT"   ";:FORI=1TO32:PRINT"[163]";:NEXT:PRINT
29 PRINT"   0. [196]ISK [196]IRECTORY"
30 PRINT"   1. [204]OAD [193][205][201][199][193] SOUND FILE"
35 PRINT"   2. [204]OAD [193][212][193][210][201] [211][212]-[193][208][208][204][197] [205][193][195]-[201][201]/[199][211]"
37 PRINT"   3. [204]OAD [195]-64 .[210][193][215] FILE"
38 PRINT"   4. [211]AVE [195]-64 .[210][193][215] FILE"
40 PRINT"   5. [195]HANGE [211][208][197][197][196]"
50 PRINT"   6."PL$"[207][198][198]"
60 PRINT"   7."PL$"[207][206]"
61 PRINT"[206][207][212][197]: [200]OLD [210][197][212][213][210][206] KEY DOWN TO [211][212][207][208]"
62 PRINT"   8."PL$"[207][198][198] [206]ON-[211]TOP"
63 PRINT"   9."PL$"[207][206] [206]ON-[211]TOP"
70 PRINT"[197]NTER SELECTION: ";
75 GETA$:IFA$=""THEN75
77 IFA$="0"THEN2000
80 I=VAL(A$):PRINTA$;"":ONIGOTO 1000,1100,1200,100,200,300,400,500,600
90 GOTO20
100 A$="":INPUT"[211][193][214][197] .RAW FILENAME";A$:IFA$=""THEN20
105 PRINT"[211]AVEING: ";A$:OPEN15,8,15,"S0:"+A$+RW$:CLOSE15
110 OPEN8,8,8,"0:"+A$+RW$+",P,W":PRINT#8,CHR$(0);CHR$(20);
120 SYS3852:CLOSE8:GOTO20
200 PRINT"[195]URRENT [211]PEED =";SP
210 INPUT"[206]EW [211]PEED";SP:IFSP<2THENSP=2
220 POKE5120,SP:GOTO20
300 I=PEEK(53265):POKE53265,0:POKE3855,SP:SYS3846:POKE53265,I:GOTO20
400 POKE3855,SP-1:SYS3846:GOTO20
500 I=PEEK(53265):POKE53265,0:POKE3855,SP
520 SYS3846:GETA$:IFA$=""THEN520
590 POKE53265,I:GOTO20
600 POKE3855,SP-1
620 SYS3846:GETA$:IFA$=""THEN620
690 GOTO20
1000 A$="":INPUT"[193]MIGA [198]ILENAME";A$:IFA$=""THEN20
1010 GOSUB1400:SYS3840:CLOSE8:GOTO20
1100 A$="":INPUT"[211][212]/[205][193][195]/[199][211] [198]ILENAME";A$:IFA$=""THEN20
1110 GOSUB1400:SYS3843:CLOSE8:GOTO20
1200 A$="":INPUT".RAW [198]ILENAME";A$:IFA$=""THEN20
1210 A$=A$+RW$:GOSUB1400:SYS3849:CLOSE8:SP=PEEK(5120):GOTO20
1400 PRINT"[204]OADING: ";A$:OPEN8,8,8,"0:"+A$+",P,R":RETURN
2000 SYS3856:INPUT"[208]RESS [210][197][212][213][210][206]";A$:GOTO20